home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Disc to the Future 2
/
Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin
/
MAC
/
THINKC
/
4_0
/
USEFUL_C
/
PASSTR__
/
PSTRNCAT.C
< prev
next >
Wrap
Text File
|
1990-04-13
|
586b
|
30 lines
/****************************************************************************
*
* FILE: Pstrncat.c
* CREA: Sven Axelsson, GU
* MODF: fredag 13 april 1990 @ 11.33.42
* HIST: 90-04-13 (1.0) First version.
*
****************************************************************************/
# include "PasStrs.h"
char *
Pstrncat(
register Str255 s1,
register Str255 s2,
short n )
{
register unsigned int i;
unsigned int l = s2[0];
char *s = (char *) s1;
s1 = &s1[s1[0]];
for( i = 1; i <= l && i <= n; i++ ) {
*++s1 = *++s2;
}
s[0] += --i;
return( s );
}